home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
CRS
/
crs13.d81
/
acqui2.sda
/
A14
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2009-10-10
|
266b
|
8 lines
100 QO$=CHR$(34):POKE53281,11:POKE53280,11:PRINT"[151]"
200 PRINT"[147]LOAD";QO$;"A2";QO$;",8,1"
400 PRINT"LOAD";QO$;"A4";QO$;",8,1:REM[155]LOADING TUTORIAL [158]FOR ARQUICE[151]"
450 PRINT"NEW:CLR"
500 PRINT"LOAD";QO$;"A16";QO$;",8"
680 FORI=1TO10
700 POKE630+I,13:NEXT:POKE637,82:POKE638,85:POKE639,78:POKE198,10